$draw info
!tab = primitive
!ifdef tab
	$dialog mtable title "Подлёт к примитиву" text !tab ok "Подлететь"
	!p_id = pid
	!ifdef p_id
		$draw fly pid !p_id
	!delete p_id
	!endif
!delete tab
!else
	$dialog message text "Не задано ни одного примитива"
!endif 
